﻿Imports DAO
Imports DTO
Public Class LopHocBUS
    ''' <summary>
    ''' Lấy danh sách tất cả các lớp học
    ''' </summary>
    Public Function LayDSLopHoc() As DataTable
        Dim dt As New DataTable
        Dim lophocDAO As New LopHocDAO()
        dt = lophocDAO.LayDSLopHoc()
        Return dt
    End Function

    ''' <summary>
    ''' Lấy danh sách lớp học của 1 khối
    ''' </summary>
    ''' <param name="makhoi">Lấy danh sách lớp học của 1 khối. VD: K10, K11, K12</param>
    Public Function LayDSLopHoc(ByVal makhoi As String) As DataTable
        Dim dt As New DataTable
        Dim lophocDAO As New LopHocDAO()
        dt = lophocDAO.LayDSLopHoc(makhoi)
        Return dt
    End Function

    ''' <summary>
    ''' Cập nhật tên lớp
    ''' </summary>
    Public Function CapNhatLop(ByVal LopDTO As LopHocDTO) As DataTable
        Dim LopDAO As New LopHocDAO
        Dim dt As New DataTable
        dt = LopDAO.CapNhat(LopDTO)
        Return dt
    End Function
    ''' <summary>
    ''' Xóa 1 lớp
    ''' </summary>
    Public Sub Xoa(ByVal LopDTO As LopHocDTO)
        Dim lopDAO As New LopHocDAO
        lopDAO.XoaLopHoc(LopDTO)
    End Sub
    ''' <summary>
    ''' Thêm một lớp
    ''' </summary>
     Public Sub Them(ByVal LopHocdto As LopHocDTO)
        Dim lopdao As New LopHocDAO
        lopdao.ThemLop(LopHocdto)
    End Sub

End Class
